سلام!
برای پیدا کردن فردی که بیشترین نمره در درس فیزیک را دارد و همچنین نمایش دیگر نمرات آن، میتوانید از ماکرو در نرمافزار اکسل استفاده کنید. در ادامه مراحل لازم را برای نوشتن کد ماکرو توضیح میدهم:
مراحل نوشتن ماکرو
باز کردن ویرایشگر ماکرو:- به تب "Developer" (توسعه دهنده) بروید. اگر این تب نمایش
داده نمیشود، میتوانید آن را از تنظیمات فعال کنید.- روی "Visual Basic" کلیک کنید.
ایجاد یک ماژول جدید:- در ویرایشگر Visual Basic، روی "Insert" کلیک کنید و سپس "Module" را انتخاب کنید.
نوشتن کد ماکرو:- در ماژول جدید، کد زیر را وارد کنید:
`vbaSub FindMaxPhysicsScore()
Dim ws As Worksheet
Dim maxScore As Double
Dim i As Long
Dim resultRow As Long
Dim found As Boolean
Dim outputSheet As Worksheet
Set ws = ThisWorkbook.Sheets("نام شیت شما") ' نام شیت اصلی را جایگزین کنید
Set outputSheet = ThisWorkbook.Sheets.Add ' ایجاد یک شیت جدید برای نتایج
outputSheet.Name = "نتایج"
maxScore = Application.WorksheetFunction.Max(ws.Range("B:B")) ' فرض بر این است که نمرات فیزیک در
ستون B هستند
resultRow = 2 ' شروع از ردیف دوم برای نتایج
outputSheet.Cells(1, 1).Value = "نام"
outputSheet.Cells(1, 2).Value = "نام خانوادگی"
outputSheet.Cells(1, 3).Value = "نمره فیزیک"
outputSheet.Cells(1, 4).Value = "نمرات دیگر" ' برای نمرات دیگر میتوانید ستونهای مختلف اضافه کنید
found = False
For i = 2 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row If ws.Cells(i, 2).Value = maxScore Then ' بررسی نمره بیشینه فیزیک outputSheet.Cells(resultRow, 1).Value = ws.Cells(i, 1).Value ' نام outputSheet.C نیکی ها...
ما را در سایت نیکی ها دنبال می کنید
برچسب : نویسنده : محمد کاظم مشهدی بازدید : 23 تاريخ : دوشنبه 26 آبان 1404 ساعت: 17:32